perm filename EXMPLS.COM[CHE,WD] blob sn#010419 filedate 1972-07-10 generic text, type T, neo UTF8
00100	(GIVEAX GE3
00200	 ((FORALL X)
00300	  ((FORALL Y)
00400	   ((FORALL Z)
00500	    (IMPLIES
00600	     (AND (GEQ X Y) (GEQ Y Z))
00700	     (GEQ X Z))))))
00800	
00900	(GIVEAX GE2 ((FORALL X) (GEQ (S X) X)))
01000	
01100	(GIVEAX GE1 ((FORALL X) (GEQ X X)))
01200	
01300	(GIVEAX NOTALL
01400	 (IMPLIES
01500	  (NOT ((FORALL X) (G X)))
01600	  ((THEREEXISTS X) (NOT (G X)))))
01700	
01800	(GIVEAX EXTENSION
01900	 ((FORALL U)
02000	  ((FORALL V)
02100	   (EQUIVALENT
02200	    (EQUAL U V)
02300	    ((FORALL X)
02400	     (EQUIVALENT (MEMBER X U) (MEMBER X V)))))))
02500	
02600	(GIVEAX PAIRING
02700	 ((FORALL U)
02800	  ((FORALL V)
02900	   ((THEREEXISTS W)
03000	    (AND (MEMBER U W) (MEMBER V W))))))
03100	
03200	(GIVEAX UNIONS
03300	 ((FORALL U)
03400	  ((THEREEXISTS V)
03500	   ((FORALL X)
03600	    (EQUIVALENT
03700	     (MEMBER X V)
03800	     ((THEREEXISTS Y)
03900	      (AND (MEMBER X Y) (MEMBER Y U))))))))
04000	
04100	(GIVEAX POWERS
04200	 ((FORALL U)
04300	  ((THEREEXISTS V)
04400	   ((FORALL X) (EQUIVALENT (MEMBER X V) (X (⊂ U)))))))
04500	
04600	(GIVESCHM FREGE
04700	 ((LAMBDA PRED)
04800	  ((THEREEXISTS Y)
04900	   ((FORALL X) (EQUIVALENT (MEMBER X Y) (PRED X))))))
05000	
05100	(GIVESCHM INDUCTION
05200	 ((LAMBDA PRED)
05300	  (IMPLIES
05400	   (AND (PRED 0) (IMPLIES (PRED N) (PRED (S N))))
05500	   ((FORALL N) (PRED N)))))
05600	
05700	
05800	(PROOF P1) 
05900	1 	(ASS P)
06000	2 	(DED 1 1)
06100	
06200	(PROOF P2) 
06300	1 	(ASS P)
06400	2 	(ASS Q)
06500	3 	(DED 2 1)
06600	4 	(DED 3 2)
06700	
06800	(PROOF P3) 
06900	1 	(ASS P)
07000	2 	(ASS (IMPLIES P Q))
07100	3 	(MP 1 2)
07200	4 	(DED 3 2)
07300	5 	(DED 4 1)
07400	
07500	(PROOF P4) 
07600	1 	(ASS (IMPLIES P Q))
07700	2 	(ASS (IMPLIES Q R))
07800	3 	(ASS P)
07900	4 	(MP 1 3)
08000	5 	(MP 2 4)
08100	6 	(DED 5 3)
08200	7 	(DED 6 2)
08300	8 	(DED 7 1)
08400	
08500	(PROOF P5) 
08600	1 	(ASS (IMPLIES Q R))
08700	2 	(ASS (IMPLIES P Q))
08800	3 	(ASS P)
08900	4 	(MP 2 3)
09000	5 	(MP 1 4)
09100	6 	(DED 5 3)
09200	7 	(DED 6 2)
09300	8 	(DED 7 1)
09400	
09500	(PROOF P6) 
09600	1 	(ASS (IMPLIES P (IMPLIES Q R)))
09700	2 	(ASS (IMPLIES P Q))
09800	3 	(ASS P)
09900	4 	(MP 2 3)
10000	5 	(MP 1 3)
10100	6 	(MP 4 5)
10200	7 	(DED 6 3)
10300	8 	(DED 7 2)
10400	9 	(DED 8 1)
10500	
10600	(PROOF P7) 
10700	1 	(ASS (IMPLIES (IMPLIES P Q) (IMPLIES P R)))
10800	2 	(ASS P)
10900	3 	(ASS Q)
11000	4 	(DED 3 2)
11100	5 	(MP 1 4)
11200	6 	(MP 2 5)
11300	7 	(DED 6 3)
11400	8 	(DED 7 2)
11500	9 	(DED 8 1)
11600	
11700	(PROOF P8) 
11800	1 	(ASS (IMPLIES P (IMPLIES Q R)))
11900	2 	(ASS Q)
12000	3 	(ASS P)
12100	4 	(MP 1 3)
12200	5 	(MP 2 4)
12300	6 	(DED 5 2)
12400	7 	(DED 6 3)
12500	8 	(DED 7 1)
12600	
12700	(PROOF P9) 
12800	1 	(ASS (IMPLIES P (IMPLIES P Q)))
12900	2 	(ASS P)
13000	3 	(MP 1 2)
13100	4 	(MP 2 3)
13200	5 	(DED 4 2)
13300	6 	(DED 5 1)
13400	
13500	(PROOF P10) 
13600	1 	(ASS (IMPLIES P (IMPLIES P Q)))
13700	2 	(ASS (IMPLIES Q P))
13800	3 	(ASS (NOT P))
13900	4 	(ASS Q)
14000	5 	(MP 2 4)
14100	6 	(NE 3 5)
14200	7 	(DED 6 4)
14300	8 	(NI 7)
14400	9 	(ASS (IMPLIES (IMPLIES P Q) Q))
14500	10 	(TAUT (NOT (IMPLIES P Q)) 9 8)
14600	11 	(TAUT P 10)
14700	12 	(NE 3 11)
14800	13 	(DED 12 3)
14900	14 	(NI 13)
15000	15 	(DNE 14)
15100	16 	(DED 15 2)
15200	17 	(DED 16 9)
15300	
15400	(PROOF EAAE) 
15500	1 	(ASS ((THEREEXISTS Y) ((FORALL X) (F X Y))))
15600	2 	(ES 1 A)
15700	3 	(US 2 X)
15800	4 	(EG 3 A Y)
15900	5 	(UG 4 X)
16000	6 	(DED 5 1)
16100	
16200	(PROOF ANEN) 
16300	1 	(ASS ((FORALL X) (F X)))
16400	2 	(ASS ((THEREEXISTS X) (NOT (F X))))
16500	3 	(ES 2 A)
16600	4 	(US 1 A)
16700	5 	(NE 3 4)
16800	6 	(DED 5 2)
16900	7 	(NI 6)
17000	8 	(DED 7 1)
17100	
17200	(PROOF ALLGE) 
17300	1 	(USESCHM INDUCTION ((LAMBDA X) (GEQ X 0)))
17400	2 	(USEAX GE1)
17500	3 	(US 2 0)
17600	4 	(USEAX GE2)
17700	5 	(US 4 N)
17800	6 	(ASS (GEQ N 0))
17900	7 	(USEAX GE3)
18000	8 	(US 7 (S N))
18100	9 	(US 8 N)
18200	10 	(US 9 0)
18300	11 	(AI 5 6)
18400	12 	(MP 10 11)
18500	13 	(DED 12 6)
18600	14 	(AI 3 13)
18700	15 	(MP 1 14)
18800	
18900	(PROOF EXM) 
19000	1 	(ASS (NOT (OR A (NOT A))))
19100	2 	(ASS A)
19200	3 	(OI 2 (NOT A))
19300	4 	(NE 1 3)
19400	5 	(DED 4 2)
19500	6 	(NI 5)
19600	7 	(OI A 6)
19700	8 	(NE 1 7)
19800	9 	(DED 8 1)
19900	10 	(NI 9)
20000	11 	(DNE 10)
20100	
20200	(PROOF JMC) 
20300	1 	(ASS ((FORALL X) (G X)))
20400	2 	(ASS (G X))
20500	3 	(US 1 Y)
20600	4 	(DED 3 2)
20700	5 	(UG 4 Y)
20800	6 	(EG 5 X)
20900	7 	(DED 6 1)
21000	8 	(USEAX NOTALL)
21100	9 	(ASS (NOT ((FORALL X) (G X))))
21200	10 	(MP 8 9)
21300	11 	(ES 10 B)
21400	12 	(ASS (G B))
21500	13 	(NE 12 11)
21600	14 	(ASS (NOT (G Y)))
21700	15 	(DED 13 14)
21800	16 	(NI 15)
21900	17 	(DNE 16)
22000	18 	(DED 17 12)
22100	19 	(UG 18 Y)
22200	20 	(EG 19 (CONS B X))
22300	21 	(DED 20 9)
22400	22 	(ALT 7 21)